A short proof of the strong normalization 
of the simply typed A/i-calculus 



Rene DAVID and Karim NOUR 

LAMA - Equipe de Logiquc 
Universite de Chambery 
73376 Le Bourget du Lac 
e-mail : {david,nour}@univ-savoie.fr 



Abstract. We give an elementary and purely arithmetical proof of the strong 
normalization of Parigot's simply typed A/i-calculus. 



1. Introduction 



This paper gives an elementary and purely arithmetical proof of the strong normal- 
ization of the cut-elimination procedure for the implicative propositional classical 
logic, i.e. the propositional calculus with the connectives — > and _L. As usual, _L 
codes the absurdity and the negation is defined by ->A = A — >_L. 

This proof is based on a proof of the strong normalization of the simply typed 
A-calculus due to the first author (see [2]) which, itself, is a simplification of the 
one given by R. Matthcs in [3]. After this paper had been written we were told by 
P.L. Curien and some others that this kind of technique was already present in van 
Daalen (see [8]) and J.J. Levy (see [4]). 

Since the proofs in the implicative propositional classical logic can be coded by 
Parigot's A/Lt-terms and the cut elimination corresponds to the A/z-reduction, the 
result can be seen as a proof of the strong normalization of the simply typed A/i- 
calculus. The first proof of the the strong normalization of the A/i-calculus for the 
types of Girard's system F was done by Parigot in [6] in two different ways : by 
using reducibility candidates and by a CPS transformation to the A-calculus. 

The technique we present here can also be used to prove the strong normalization 
of the cut elimination procedure for the classical natural deduction (i.e. where 
all the connectives, in particular V, are present and permutative conversions are 
considered) but more elaborate ideas are necessary. This result was proved (see [1]) 
by using a CPS transformation. We will give a direct proof in a forthcoming paper. 
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2. The typed system 



The A/x-terms, which extend the A-terms, are given by the following grammar (where 
x,y, ... are variables): 

T ::= x | XxT (T T) /xxT 
The new constructor /x corresponds to the classical rule _L C given below. 

T,x : A h M : B 
T,x:A\~x:A Th XxM : A -» 5 1 

fi h M : A -> B r 2 hiV:A r, x : ->A h M : _L 



Ti, T 2 h (M TV) : B e T h itzM : ^ 



The cut-elimination procedure corresponds to the reduction rules given below. 

A logical cut appears when the introduction of the connective — > is immediately 
followed by its elimination. The reduction rule is the usual (3 reduction of the 
A-calculus: 

(XxM N) -> M[x := N] 

A classical cut appears when the classical rule is immediately followed by the 
elimination rule of — >. The reduction rule is : 

(fixM N) -> nyM[x := Xz(y (z N))] 

It corresponds to the following transformation on the proofs (written in the 
natural deduction style): 

[A^B] A 



hB] B 
i(A — > B)] I 
V 1 -i(A B) 

-L V 2 Pi 



A—fB A _L 



B B 

This coding, though slightly different from the one in [6], is essentially the same 
and the two systems are obviously equivalent. 

- Parigot uses two sets of variables: the A-variables (for the intuitionistic as- 
sumptions) and the /i-variables (for classical assumptions, i.e. the ones that are 
discharged by the absurdity rule _L C ). Moreover his typing judgements have several 
conclusions. 

- We use only one set of variables and sequents with only one conclusion. Thus, 
we do not need the new constructor [a] and the corresponding notion of substitu- 
tion. The drawback is that the reduction introduces some "administrative" redexes. 
These notations and reductions rules are the ones used in the Aa of Rehof and 
Sorensen (see [7]). 
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3. Strong normalization 



Wc first need some notations and lemmas. 



3.1. Lemmas for the un-typed calculus 

Notation 3..1 Let M be a Xfi-term. 

1. M — > M' (resp. M —>* M' ) means that M reduces to M' by using one step 
(resp. some steps) of the reduction rules given above. 

2. cxty(M) is the number of symbols occurring in M. 

3. M is strongly normalizable ( this is denoted by M G SN ) if there is no infinite 
sequence of — > reductions. If M G SN, n{M) is the length of the longest 
reduction of M . 

4- I*? (resp. Xfi) represents a sequence of Xfi-terms (resp. of X or /i abstractions). 
IfN is the sequence Ni...N n , (M 7$) denotes the X\i-term (M Ni...N n ). 

5. In a proof by induction, IH will denote the induction hypothesis. 

Lemma 3..1 Every X/i-term M can be written as X/i(R (?) where R is either a 
redex (called the head-redex of M) or a variable (in this case, M is in head normal 
form). 

Proof By induction on cxty(M). □ 

Definition 3..1 Let M be a Xfi-term. 

1. hred(M) is the term obtained from M by reducing its head-redex, if any. 

2. arg(M) is the set of terms defined by: 

• arg(xjl(x Oi...O n )) = {Oi, O n }. 

• arg{Xii{XxP Q 1 ...O n )) = arg(X^(fixP Q Oi...O„)) = {P, Q, O u O n }. 

Lemma 3. .2 Let M,N be X^-terms. Then, arg(M[x := N}) C arg(N) U {N} U 
{Q[x~N} I Q earg(M)}. 

Proof Immediate. □ 

Lemma 3. .3 Let M be a X^-term. Then, M G SN iff arg(M) C SN and 
hred(M) G SN. 

Proof =>■ is immediate. <*= : If M = X~jl(x (?) the result is trivial. 

- If M = A/i(i? O) where R = XxP Q: since arg(M) C SN, an infinite reduction 
of M must look like: M X/l(XxP 1 Qi 0[ ) \ji(Pi[x := Qi] U[) ->* ... . The 
result immediately follows from the fact that (P[x := Q] (?) {P\[x := Qi] Oi). 

- If M = Xfl(R (?) where R = [ixP Q: the proof is similar. □ 
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Lemma 3. .4 Let M G SN be Xfi-term. Then (My) G SN. 

Proof Wc prove by induction on (r](M),cxty(M)) that, if M G SN, then 
[M[a] y) G SN where o~ is a substitution of the form : \x\ : — \u(x± (u y)), ...,x n : — 
\u(x n (u y))]. It follows immediately from the IH that, if N is a strict sub-term 
of M, then N[a] G SAT and thus arff((M[<r] j/)) C SAT. By lemma 3. .3, it is thus 
enough to prove that N — hred((M[<j]y)) G SN. In each case the result follows 
easily from the IH: 

• If M = (x ~6) and a(x) = x: then {M[a] y) = {x 0\a\ y). 

• If M = (x 0{6) and a{x) = Xu(x (u y): then N = (x [Oi[a] y)(3[a] y). 

• If M = (XxP Q then N = {M'[a]y) where M' = hred(M) and thus 

7]{M') < 7]{M). 

• If M = (pxP Q 13): similar. 

• If M = XxP: then N = P[o][x := y}. 

• If M = fixP: then N = ^xP[a'] where a' = a U [x := Xu(x (u y))]. □ 



3.2. Proof of the strong normalization of the typed calculus 



The following result is straightforward. 

Lemma 3. .5 IfY\-M:A and M — >* N then V \- N : A. 

Lemma 3. .6 Let M G SN be a Xfi-term and a be a substitution. Assume that 
the substituted variables all have the same type and, for all x, a(x) G SN. Then 
M[a] G SN. 

Proof This is done by induction on (lgt(a),r](M), cxty(M),t](a)) where lgt(a) 
is the number of connectives in the type of the substituted variables and 77(0-) is 
the sum of the r](N) for the N that are actually substituted, i.e. for example 
if a = [x := N] and x occurs n times in M, then 77(0-) = n.rj(N). The cases 
M = XxP, M = [ixP and M=(j/?) for y 7^ x are trivial. Otherwise, by the IH 
and lemma 3. .2, arg(M[a]) c SN. By lemma 3. .3 it is thus enough to show that 
hred{M[a\) G SN: 

• If M = (XyP Q ~6) : hred(M[a]) = hred(M)[a] and the result follows from 
the IH since r](hred(M)) < f](M). 

• M = (fj,yP Q ~6) : similar. 

• M = (x P ~d) : by our definition of g{cr), we may assume, without loss of 
generality, that x occurs only once in M. Let iV = a(x). 

— If AT is not in head normal form, hred(M[a}) = M[a'\ where a'(y) = a(y) 
for y =^ x and a'(x) = hred(N). The result follows from the IH since 
7](a') < r](a). 

- If N = (y Ni), the result is trivial. 
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- If N = XyN x then hred{M[<r]) = {N^y := P[a}] By the IH, 
since lgt(P[a\) < lgt(a), N^y := P[a]] G SN and thus, by the IH, 
hred{M[(j]) = {z Ojcrj) [z := N^y := P[a]}} 6 SN since lgt(N x ) < 
Igt(cr). 

- If TV = fiyNi then M[a] = {^yN x P[a] 0[a\). Let M x = {/J-yNx z) where 
z is a fresh variable. By lemma 3. .4, M\ e SW. Since Zgi(P[(7]) < 
lgt(a), by the /i/, {nyN-^ P[a}) = M x \z := P[a\] e 5iV. But M[cr] = 
M 2 [u := (pyNi P[cr])] where M 2 = (u 0[<j\) and u is a fresh variable. 
Since lgt(([iyNi P[cr] j) < lgt(a), the result follows from the the IH. □ 

Theorem 3..1 Every typed \\i-term is strongly normalizable. 

Proof By induction on cxty(M). The cases M = x, M = Xx N or M = fix N 

are trivial. If M = (Ni N 2 ) the result follows from lemma 3.. 6 and the IH since 

M = (x N 2 )[x := Ni] where a; is a fresh variable. □ 

Remarks 

1. In the proof of theorem 3..1, the case M — (N\ N 2 ) can also be solved, by 
writing M = (Ni x)[x := N 2 ] where x is a fresh variable and using lemma 
3. .3. 

2. In the proof of lemma 3.. 4, the case M = (x P ~d) and TV = XyNi can be 
solved exactly as the case N = fiyNi by using Mi = (XyNi z) where z is a 
fresh variable. 
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